## 500 variables, hence 500 univariate regressions are to be fitted
x = matrix( rnorm(100 * 500), ncol = 500 )
x = as.data.frame(x)
## 100 observations in total
y = rnorm(100) ## binary logistic regression
system.time( regression(x, y) )
a1 = regression(x, y)
Run the code above in your browser using DataLab